www.gusucode.com > 智睿学校网站管理系统 V2.20 > 智睿学校网站管理系统 V2.20\code\admin\Admin_Search.asp

    <!--#include file="../Include/conn.asp"-->
<!--#include file="Admin_check.asp"-->
<%
dim Result
  Result=request.QueryString("Result")
dim StartDate,EndDate,Keyword
  StartDate=request.form("Start_Date")
  EndDate=request.form("End_Date")
  Keyword=request.form("Keyword")
select case Result
  case "News"
    response.redirect ("Admin_infoli.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
  case "down"
    response.redirect ("Admin_nofoli.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
  case "mark"
    response.redirect ("Admin_markli.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
  case "Dews"
    response.redirect ("Admin_Defoli.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
  case "Message"
    response.redirect ("Admin_MesList.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
  case "ADLO"
    response.redirect ("Admin_AdList.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
 case "Members"
    response.redirect ("Admin_Memlist.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
 case "Photo"
    response.redirect ("Admin_Poli.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
 case "poPhoto"
    response.redirect ("Admin_po_poli.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
 case "ProNo"
    response.redirect ("Admin_Order.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
 case "Tal"
    response.redirect ("Admin_Tal.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
  case else
end select
%>